home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).po
/
SNOWFLAKES.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
336b
|
2 lines
1 POKE 232,0: POKE 233,96: POKE 24576,1: POKE 24577,0: POKE 24578,4: POKE 24579,0: HCOLOR= 3
2 P = PEEK(49152) -176:P = 64/(P - INT(P/10) *10 +(P = 0)): HGR2 : FOR A = 24580 TO 24595: POKE A, INT( RND(1) *20) +5: NEXT A: POKE 24596,0: FOR Y = 2 TO 7: SCALE= Y: FOR X = 0 TO 64 STEP P: ROT= X: DRAW 1 AT 140,96: NEXT X: NEXT Y: GOTO 2